home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Ss-Sz / Stack Starter ß.979 / Stack Starter fl.979 / card_17729.txt < prev    next >
Encoding:
Text File  |  1989-07-29  |  5.7 KB  |  294 lines
  1. -- card: 17729 from stack: in.979
  2. -- bmap block id: 22655
  3. -- flags: 0000
  4. -- background id: 2295
  5. -- name: keyboard
  6. ----- HyperTalk script -----
  7. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû Script info for this card. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû
  8. HANDLERS: idle,openCard,arrowKey
  9.  
  10. FUNCTIONS:
  11.  
  12. Size of script: 611 chars.         1/14/89
  13. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû
  14.  
  15. on idle
  16.   if visible of field "Mouse Loc2" is true then
  17.     put the mouseLoc into field "Mouse Loc2"
  18.   end if
  19.   exit idle
  20. end idle
  21.  
  22. on openCard
  23.   put empty into card field "Test"
  24.   put script of field "sndField" into fred
  25.   if fred is empty then
  26.     answer "Oops, no sound resources found." with "Sorry"
  27.   else put fred into card field "Music"
  28.   set name of bkgnd btn id 72 to "Prev Card:" && short name of prev card
  29.   set name of bkgnd btn id 73 to "Next Card:" && short name of next card
  30.   pass openCard
  31. end openCard
  32.  
  33. on arrowKey this
  34.   if this is "right" then doMenu "Cover"
  35.   else pass arrowKey
  36. end arrowKey
  37.  
  38.  
  39. -- part 1 (button)
  40. -- low flags: 00
  41. -- high flags: 0000
  42. -- rect: left=70 top=78 right=155 bottom=435
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 204
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: 
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   global keysnd
  54.   get the clickloc
  55.   put item 1 of it into noteNum
  56.   put 1 + (noteNum - 52) DIV 13 into noteNum
  57.   put "36 38 40 41 43 45 47 48 50 52 53 55 57 59 60 62" && "64 65 67 69 71 72 74 76 77 79 81 83" into keymap
  58.   put word noteNum of keymap into realNote
  59.   play keysnd realnote & "q"
  60.  
  61.   if notenum < 15 then
  62.     put 220 - ((noteNum-17)*3) -10 into noteLocY
  63.   else
  64.     put 204 - ((noteNum-17)*3) -10 into noteLocY
  65.   end if
  66.   show button Note at 372, noteLocY
  67.   --put "play" && keysnd realnote & "q" into card field test
  68. end mouseUp
  69.  
  70.  
  71.  
  72.  
  73. -- part 2 (button)
  74. -- low flags: 00
  75. -- high flags: 0000
  76. -- rect: left=355 top=235 right=263 bottom=389
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 12694 / 12694
  79. -- text alignment: 1
  80. -- font id: 204
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Note
  85.  
  86.  
  87. -- part 3 (button)
  88. -- low flags: 00
  89. -- high flags: A004
  90. -- rect: left=382 top=284 right=302 bottom=436
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 204
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Return
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   visual effect checkerboard to black
  102.   pop card
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 4 (field)
  108. -- low flags: 00
  109. -- high flags: 0002
  110. -- rect: left=70 top=164 right=181 bottom=309
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 0
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 14
  118. -- part name: Test
  119.  
  120.  
  121. -- part 5 (field)
  122. -- low flags: 01
  123. -- high flags: 0007
  124. -- rect: left=70 top=181 right=281 bottom=309
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 3
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 14
  132. -- part name: Music
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   global keysnd
  136.   put the optionkey into keystate
  137.   if the selection is empty then
  138.     set lockText of the target to false
  139.     click at (first item of the rect of the target), (second item of the clickLoc)
  140.     click at (last item of the rect of the target)+9, (second item of the clickLoc) with shiftKey
  141.     put the selection into keysnd
  142.     click at 0,0
  143.     set lockText of the target to true
  144.   end if
  145.   put "play" && quote & keysnd & quote into PlaySomething
  146.   put PlaySomething into card field "Test"
  147.   do (card field "Test")
  148.   pass mouseUp
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 6 (button)
  154. -- low flags: 00
  155. -- high flags: C004
  156. -- rect: left=403 top=311 right=327 bottom=455
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Sounds
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   set hilite of me to true
  168.   doMenu short name of me
  169. end mouseUp
  170.  
  171.  
  172. -- part 7 (button)
  173. -- low flags: 00
  174. -- high flags: 8000
  175. -- rect: left=217 top=283 right=301 bottom=286
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 1
  179. -- font id: 204
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Î Í Ï
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   get trunc(((item 1 of the clickloc) - (item 1 of the rect of me)) / (((item 3 of the rect of me) - (item 1 of the rect of me)) / 3))
  187.  
  188.   if it is 0 then
  189.     scroll L
  190.     go prev card
  191.   else if it is 1 then
  192.     scroll D
  193.     doMenu "Home"
  194.   else if it is 2 then
  195.     scroll R
  196.     doMenu "Cover"
  197.   end if
  198. end mouseUp
  199.  
  200.  
  201. -- part contents for background part 56
  202. ----- text -----
  203. keyboard
  204.  
  205. -- part contents for background part 78
  206. ----- text -----
  207. Prev Card: the sound sampler
  208.  
  209. -- part contents for background part 79
  210. ----- text -----
  211. Next Card: Panic Spredsheet
  212.  
  213. -- part contents for card part 5
  214. ----- text -----
  215. 0
  216. 1
  217. 2
  218. 3
  219. 4
  220. 5
  221. 6
  222. 7
  223. 8
  224. 9
  225. A
  226. B
  227. Boing
  228. C
  229. Car
  230. Cat
  231. Click
  232. Coming
  233. Crashbang
  234. Crunch
  235. Cucu
  236. D
  237. Dog
  238. DoorClose
  239. DoorOpen
  240. Drip
  241. E
  242. Evil Laugh
  243. F
  244. Frog
  245. G
  246. Get Lost
  247. Gunshot
  248. H
  249. Harpsichord
  250. Hello
  251. Honk
  252. I
  253. J
  254. K
  255. Knock
  256. L
  257. M
  258. Metal Falling
  259. N
  260. O
  261. P
  262. Q
  263. R
  264. S
  265. Silence
  266. SpinCylinder
  267. Static
  268. Step
  269. Switch
  270. T
  271. U
  272. Uuh
  273. V
  274. W
  275. X
  276. Y
  277. Yeow
  278. Z
  279.  
  280. -- part contents for background part 68
  281. ----- text -----
  282. 237,137
  283.  
  284. -- part contents for background part 82
  285. ----- text -----
  286. Free Space:
  287.  
  288. -- part contents for background part 83
  289. ----- text -----
  290. 50.19 K
  291.  
  292. -- part contents for background part 67
  293. ----- text -----
  294. Mouse Location: